44 IF A$ = "P" AND PR=0 THEN PR=1 :OPEN "LPT1:" FOR OUTPUT AS #4 :GOTO 23
45 IF A$ = "Q" THEN CLS:SCREEN CLOSE 2:WINDOW CLOSE 2:END
46 IF A$ = "P" AND PR=1 THEN PR=0 :CLOSE #4 :GOTO 23
47 IF A$ = "S" AND RV=0 THEN RV=1 :GOTO 23
48 IF A$ = "S" AND RV=1 THEN RV=0 :GOTO 23
49 IF A$ = "I" GOTO 451
50 IF A$ = "N" GOTO 80
51 IF A$ = "R" AND LN$(1) <> "" GOTO 56
52 GOTO 23
53 REM *--------------------*
54 REM REVIEW LAST READING
55 REM *--------------------*
56 CLS
57
58 COLOR 3,0:PRINT " PRESS ANY KEY TO CONTINUE":COLOR 2,0:PRINT
59
60 FOR X = 1 TO 10
61 COLOR 1,0:PRINT PO$(X);": ";TA$(TA(X));" CARD NUMBER: ";(TA(X)-1);:COLOR 2,0
62 IF RR=1 AND RD$(X) <> "" THEN PRINT " REVERSED " : ELSE PRINT
63 PRINT LN$(X)
64 A$=INKEY$:IF A$="" GOTO 64
65 NEXT
66 COLOR 4,0:PRINT:PRINT " END OF READING. PRESS ANY KEY TO RETURN TO MENU (PRESS 'P' TO PRINT) ":COLOR 2,0
67 A$=INKEY$:IF A$="" GOTO 67
68 IF A$="P" GOTO 70
69 GOTO 23
70 CLOSE #4:OPEN "LPT1:" FOR OUTPUT AS #4
71 FOR X=1 TO 10:PRINT #4,PO$(X);": ";TA$(TA(X));" CARD NUMBER: ";(TA(X)-1);
72 IF RR=1 AND RD$(X) <> "" THEN PRINT #4," REVERSED": ELSE PRINT #4,""
73 PRINT #4,LN$(X):PRINT #4,""
74 NEXT
75 PRINT #4,"":CLOSE #4:PR=0
76 GOTO 23
77 REM *-----------------*
78 REM NEW READING START
79 REM *-----------------*
80 CLS:PRINT:PRINT" SHUFFLING DECK NOW ..."
81 REM *-------------*
82 REM SHUFFLE CARDS
83 REM *-------------*
84 FOR D = 1 TO 78
85 TA(D)=D
86 NEXT:RANDOMIZE TIMER
87 FOR D = 1 TO 78
88 D% = D+INT(RND(1!)*(79-D))
89 IF RV = 0 THEN 92
90 R= INT(RND(1!)*100)
91 IF R < 50 THEN RD$(D)="-" : ELSE RD$(D)=""
92 MO= TA(D)
93 TA(D) = TA(D%)
94 TA(D%) = MO
95 NEXT
96 REM *-----------------------------------*
97 REM END SHUFFLE AND BEGIN CARD LAYOUT
98 REM *-----------------------------------*
99 CLS:LOCATE 10,1:PRINT " Think of a question,";:COLOR 1,0:PRINT " CONCENTRATE ";:COLOR 2,0:PRINT "...and when ready, hit any key."
100 A$=INKEY$:IF A$="" GOTO 100
101 CLS
102 IF RV=1 THEN RR=1 : ELSE RR=0
103
104 COLOR 3,0:PRINT " PRESS ANY KEY TO CONTINUE":PRINT:COLOR 2,0
105 'WINDOW 0,0,79,22,1
106 FOR D = 1 TO 10
107 Z2=TA(D)
108 IF Z2< 37 GOTO 111
109 IF Z2< 68 THEN Z2=Z2-36:GOTO 113
110 Z2=Z2-66: GOTO 115
111 ON Z2 GOSUB 154,158,162,166,170,174,178,182,186,190,194,198,202,206,210,214,218,222,226,230,234,238,248,251,254,257,260,263,266,269,272,275,278,281,284,287
112 GOTO 116
113 ON Z2 GOSUB 293,296,299,302,305,308,311,314,317,320,323,326,329,332,338,341,344,347,350,353,356,359,362,365,368,371,374,377,383,386,389
114 GOTO 116
115 ON Z2 GOSUB 389,392,395,398,401,404,407,410,413,416,419,422
116 COLOR 1,0:PRINT PO$(D);": ";TA$(TA(D));" CARD NUMBER: ";(TA(D)-1);:COLOR 2,0
117 IF PR=1 THEN PRINT #4,PO$(D);": ";TA$(TA(D));" CARD NUMBER: ";(TA(D)-1);
118 IF RV=0 OR RD$(D)="" THEN PRINT " ": ELSE PRINT" REVERSED "
119 IF PR=1 AND RD$(D)<>"" THEN PRINT#4," REVERSED"
120 IF PR=1 AND RD$(D)="" THEN PRINT#4,""
121 IF RD$(D)<>"" THEN LN$=RV$:
122 PRINT LN$:LN$(D)=LN$
123 IF PR=1 THEN PRINT #4,LN$(D):PRINT #4,""
124 PRINT
125 A$=INKEY$:IF A$="" GOTO 125
126 NEXT
127 COLOR 4,0:PRINT " END OF READING. PRESS ANY KEY TO RETURN TO MENU ":COLOR 2,0
128 A$=INKEY$:IF A$="" GOTO 128
129 GOTO 23
130 REM *-------------*
131 REM DATA MODULE
132 REM *-------------*
133 DATA THE FOOL,THE MAGICIAN,THE HIGH PRIESTESS,THE EMPRESS,THE EMPEROR
134 DATA HIEROPHANT,THE LOVERS,THE CHARIOT,JUSTICE,THE HERMIT,WHEEL OF FORTUNE
135 DATA STRENGTH,HANGED MAN,DEATH,TEMPERANCE,THE DEVIL,THE TOWER,THE STAR
136 DATA THE MOON,THE SUN,JUDGEMENT,THE WORLD,KING OF SWORDS,QUEEN OF SWORDS
137 DATA KNIGHT OF SWORDS,VALET OF SWORDS,TEN OF SWORDS,NINE OF SWORDS,EIGHT OF SWORDS
138 DATA SEVEN OF SWORDS,SIX OF SWORDS,FIVE OF SWORDS,FOUR OF SWORDS,THREE OF SWORDS,TWO OF SWORDS
139 DATA ACE OF SWORDS,KING OF BATONS,QUEEN OF BATONS,KNIGHT OF BATONS,VALET OF BATONS
140 DATA TEN OF BATONS,NINE OF BATONS,EIGHT OF BATONS,SEVEN OF BATONS,SIX OF BATONS,FIVE OF BATONS
141 DATA FOUR OF BATONS,THREE OF BATONS,TWO OF BATONS,ACE OF BATONS,KING OF CUPS,QUEEN OF CUPS
142 DATA KNIGHT OF CUPS,VALET OF CUPS,TEN OF CUPS,NINE OF CUPS,EIGHT OF CUPS,SEVEN OF CUPS
143 DATA SIX OF CUPS,FIVE OF CUPS,FOUR OF CUPS,THREE OF CUPS,TWO OF CUPS,ACE OF CUPS
144 DATA KING OF COINS,QUEEN OF COINS,KNIGHT OF COINS,VALET OF COINS,TEN OF COINS,NINE OF COINS
145 DATA EIGHT OF COINS,SEVEN OF COINS,SIX OF COINS,FIVE OF COINS,FOUR OF COINS,THREE OF COINS,TWO OF COINS,ACE OF COINS
146 DATA PRESENT POSITION,IMMEDIATE INFLUENCE, GOAL OR DESTINY,DISTANT PAST FOUNDATION,RECENT PAST EVENTS,FUTURE INFLUENCE,THE QUESTIONER,ENVIRONMENTAL FACTORS
147 DATA INNER EMOTIONS,FINAL RESULT
148 :
149 REM *-------------------------*
150 REM THE MAJOR ARCANA STRINGS
151 REM *-------------------------*
152 :
153 REM THE FOOL
154 LN$="DESIRE TO ACCOMPLISH A GREAT GOAL * MYSTIC * NEW START * EXCITEMENT * THE SPIRIT IN SEARCH OF EXPERIENCE, THE FLESH, THE SENSITIVE LIFE"
155 RV$="FOLLY * INDISCRETION * THOUGHTLESS ACTION * SEEING ONLY THE ILLUSION AND NOT THE OBVIOUS * REJECTION OF THAT WHICH IS REALITY"
156 RETURN
157 REM THE MAGICIAN
158 LN$="WILLPOWER * CONFIDENCE * CREATIVITY * GUILE * MYSTERY * SKILL * THE DIVINE MOTIVE IN MAN * A PHYSICIAN * DISQUIET"
159 RV$="INDECISION * WEAK WILL * TRICKERY * INEPTITUDE * THE USE OF A GREATER POWER FOR DESTRUCTIVE ENDS *"
160 RETURN
161 REM THE HIGH PRIESTESS (PAPESS)
162 LN$="WISDOM * SERENE KNOWLEDGE * RESERVE * COLD EMOTION * SAGACITY * PASSION, MORAL OR PHYSICAL ARDOUR * HIDDEN INFLUENCES AT WORK"
